Mac Power 1997 December/MACPOWER-1997-12.ISO.7z/MACPOWER-1997-12.ISO/MacPowerオリジナル/Edutainment World/チャンプジム for DEMO/DIR/mitt.dir/00073_Script_73

Text File | 1997-09-29 | 532b | 18 lines

---------猩íﾋﾇﾃêîﾇﾃíﾜﾇｩﾇﾁ裄ﾇﾇﾁﾇﾍﾇ©êîﾇ貮ﾘﾉ篷ìﾉ_ﾉﾄﾇﾃ鐡ﾇｻﾇﾁﾇｻﾇ｢ílﾇ晁oﾇﾝ蔔êî(酩ëｨ筱ﾉoﾅ[ﾉWﾉ睨ìﾅj

--**************鞣茣îzíu
on qRAND XMAX, ZMAX  ------XMAX ﾇ吝猊ﾇﾁﾇﾍﾇ©êîﾅ@ZMAXﾇ吭ﾍíﾋﾇﾃêî
  global Qlist
  set Qlist to []
  put 0 into tois
  addat Qlist,1,random (ZMAX)
  put random (ZMAX) into randkazu
  repeat while count(Qlist) <> XMAX
    if getpos(Qlist,randkazu) <> 0 then
      put random (ZMAX) into randkazu
    else
      append Qlist,randkazu
      put random (ZMAX) into randkazu
    end if
  end repeat
end